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INTRODUCTION 

This application note provides programming information 
for the MC68704P2 8-bit EPROM Microcomputer Unit 
(MCU). This information enables the user to construct and 
operate the programming module which is used to program 
the EPROM MCU device. Figure 1 illustrates the program¬ 
ming module schematic diagram. All that is required to pro¬ 
gram the MC68704P2 EPROM MCU is the programming 
module, 2K EPROM, and a + 5 volt dc power supply. 

The MC68704P2 EPROM MCU programming module 
was designed to utilize either MC68705P3 or MC6805P2 
MCUs. Four jumper pads (J1 A, JIB, J2, and J3) are provid¬ 
ed on the module to facilitate MCU interconnection as 
follows: 

a. MC68705P3 MCU—Install insulated jumper wire be¬ 
tween J1A and J3. 

b. MC6805P2 MCU—Install insulated jumper wire be¬ 
tween JIB and J2. 

Programming module operation is identical when using 
either the MC68705P3 or MC6805P2 MCU. 

PROGRAMMING OPERATING MODES 

The programming module is designed to perform in four 
modes of operation. These modes of operation are as 
follows: 

a. Zero check 

b. Program 

c. Verify 

d. Test 

ZERO CHECK 

The zero check mode of operation allows the user to deter¬ 
mine if the EPROM MCU is erased (blank). The erased value 
is $00 (hexadecimal). Upon completion of the zero check 
operation, the user is notified of the results via the module 
zero check LED (labeled “Z”). This mode of operation 
should be performed prior to any programming operation. 

PROGRAM 

The program mode of operation will store the data code 
located in the 2K EPROM into the EPROM MCU. Each 
byte programmed is also verified against the 2K EPROM 
contents. Upon completion of the program operation, the 
user is notified of the results via the module program LED 
(labeled “P”). 


VERIFY 

The verify mode of operation compares the data code 
stored in the EPROM MCU against the 2K EPROM con¬ 
tents. Upon completion of the verify operation, the user is 
notified of the results via the module verify LED (labeled 
“V”). 

TEST 

The test mode of operation tests the hardware operation of 
the serial to parallel conversion circuits (74LS164s), octal 
transparent latches (74LS374s), and the octal buffer 
(74LS241) which represents the majority of the interconnect¬ 
ing circuitry between the module MC68705P3 MCU and the 
MC68704P2 MCU programming socket. 

PROGRAMMING MODE SELECTION 

The programming module operating modes are selected by 
the placement of the mode select switches SI and S2. The 
functions of these switches are as follows: 


SI 

S2 

MODE 

OFF 

OFF 

Test 

OFF 

ON 

Zero check 

ON 

OFF 

Program 

ON 

ON 

Verify 


After selecting the initial mode, reconfiguration of switches 
SI and S2 (to any mode) followed by the placement of the 
RESET switch S3 to the ON and OFF positions will initiate a 
new mode of operation. 

PRELIMINARY PROCEDURES 

Prior to performing any programming operations, the 
following steps are performed: 

1. Place mode select switches SI, S2, and POWER switch 
S4 to the OFF positions, and the RESET switch S3 to 
the ON position. 

2. Connect + 5 volt dc power supply to the programming 
module terminals labeled + 5 and GND. 

3. Install preprogrammed 2K EPROM device into the 
Zero Insertion Force (ZIF) 24-pin socket U10. Code 
stored in preprogrammed device is as follows: 


Address 

Contents 

$012 — $017 

Option bytes 

$018 — $05 F 

User data space 

$400 — $7F8 

User program 

$7FC — $7FD 

IRQ vector 

$7FE — $7FF 

Restart vector 
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4. The EPROM MCU device should be erased by the ex¬ 
posure of a high-intensity ultraviolet (UV) light with a 
wavelength of 2537 Angstrom (A). The recommended 
dose (UV intensity x exposure time) is 15 Ws/cm^. 
UV lamps should be used without shortwave filters, 
and the EPROM MCU device positioned about one 
inch from the UV lamps. 

OPERATING PROCEDURES 


1. Insert erased MC68704P2 EPROM MCU into the Zero 
Insertion Force (ZIF) 28-pin programming socket U14. 

2. Place POWER switch S4 to the ON position. Place 
RESET switch S3 to the ON position, and then to the 
OFF position. When S3 is placed to the OFF position, 
the hardware test of the programming module is 
initiated. 

a. If all LEDs remain illuminated, the module is 
operating correctly and the user proceeds to step 3. 

b. If all three LEDs flash for approximately 4 seconds, 
a problem exists with the programming module. 
Module POWER switch is placed to the OFF posi¬ 
tion, and the EPROM MCU device is removed 
from the programming socket. Upon fixing the 
module malfunction, the user proceeds to step 1. 

3. Place mode select switch S2 to the ON position. Place 
RESET switch S3 to the ON position, and then to the 
OFF position. This step initiates the zero check of the 
EPROM MCU. 

a. If EPROM MCU is completely erased, the zero 
check LED (labeled “Z”) will illuminate con¬ 
tinuously, and the user proceeds to step 4. 

b. If EPROM MCU is not completely erased, the zero 
check LED will flash. Module POWER switch is 
placed to the OFF position, and the EPROM MCU 
device is removed from the programming socket 
and re-erased. Upon completion of the EPROM 
MCU erasing, the user places switch S2 to the OFF 
position and proceeds to step 1. 

4. Place mode select switches SI and S2 to the ON and 
OFF positions, respectively. Place RESET switch S3 to 
the ON position, and then to the OFF position. This 
step initiates the programming of the EPROM MCU. 
The EPROM MCU is programmed from the pre¬ 
programmed 2K EPROM residing in socket U10. 
EPROM MCU programming takes approximately two 
minutes to be completed. 

a. If no errors are encountered during the program¬ 
ming sequence, the program LED (labeled “P”) 
will illuminate continuously, and the user proceeds 
to step 5. 

b. If errors are encountered, the program LED will 
flash. Module POWER switch is placed to the OFF 
position, and the EPROM MCU device is removed 
from the programming socket and re-erased. Upon 
completion of the EPROM MCU erasing, the user 
places switch SI to the OFF position and proceeds 
to step 1. 

5. Place mode select switch S2 to the ON position. Place 
RESET switch S3 to the ON position, and then to the 
OFF position. This step verifies the EPROM MCU 


programming operation just performed. The EPROM 
MCU contents is compared against the code stored in 
the 2K EPROM device. Verification process takes ap¬ 
proximately 4 seconds. 

a. If a valid comparison is made, the verify LED 
(labeled “V”) will illuminate continuously. The 
programming operation is now complete. Module 
POWER switch is placed to the OFF position, and 
the EPROM MCU device is removed from the pro¬ 
gramming socket. 

b. If a mismatch is detected, the verify LED will flash. 
Module POWER switch is placed to the OFF posi¬ 
tion, and the EPROM MCU device is removed 
from the programming socket and re-erased. Upon 
completion of the EPROM MCU erasing, the user 
places both switches SI and S2 to the OFF position 
and proceeds to step 1. 

PROGRAMMING MODULE CONSTRUCTION 

The programming module is a double-sided Printed Wir¬ 
ing Board (PWB) with plated through holes. Table 1 lists the 
parts list, and Figure 2 illustrates the part locations for the 
programming module. Figures 3 and 4 provide the top and 
bottom PWB printed wiring artwork layout diagrams, 
respectively. 


TABLE 1 — Programming Module Parts List 


C1-C4, 

C6-C18 

Capacitor, 0.1 (if @ 50 V, rf-bypass 

C5 

Capacitor, 4700 pF @ 100 V, ceramic/mylar 

C19 

Capacitor, 100 pF @ 35 V, electrolytic 

CR1, CR2 

Diode, 1N4001 

DS1-DS3 

LEDs, red 

GL Q2 

Transistor, 2N2222 

R1-R3 

Resistor, 470 Q, carbon, 5%, AW 

R4, R5 

Resistor, 330 12, carbon, 5%, 14 W 

R6, R13-R15 

Resistor, 4.7 kfl, carbon, 5%, ’AW 

R7-R12, R17 

Resistor, 1.0 kQ, carbon, 5%, ’AW 

R16 

Resistor, 100 0, carbon, 5%, AW 

R18 

Resistor, 5.1 kO, carbon, 5%, AW 

S1-S4 

Switch, SPOT, Amer # ST1-1, PCB mtg. 

U1 

I.C., SN74LS04 

U2 

I.C., SN74LS368 

U3 

I.C., SN74LS367 

U4 

I.C., SN74LS00 

U5 

I.C., MC68705P3 (programmed EPROM 

MCU, see note below) 

U6, U7 

I.C., SN74LS164 

U8, U9 

I.C., SN74LS374 

U10 

I.C., MCM2716 (programmed 2K EPROM) 
I.C. Socket, 24-pin, ZIF, Textool # 224-3344 

U11 

I.C., SN74LS241 

U12 

I.C., SN74LS165 

U13 

I.C., SN74LS74 

U14 

I.C. Socket, programming, 28-pin, ZIF, 
Textool # 228-3345 

U15 

I.C., SN74LS193 

VR1 

Diode, Zener, 1 N4748A (22 V, 5%) 

VR2 

+ 5 V to +26 V DC Converter, 
ASTEC/ADIP/26A05 

Y1 

Crystal, 8.0 MHz 


NOTE: Software listing for the programmed EPROM 
MCU is provided at the end of this application 
note. 

1 -188 
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FIGURE 3 - PWB (Top) 
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MC68704P2 Programmer Module 
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00001 
0 0002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
0 0020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 


NAM PROGRAMMER 

OPT LLE=120 

**************************************************************************** 
* * 

* MC68704P2 PROGRAMMER MODULE SOFTWARE * 

* THIS SOFTWARE PERMITS A USER TO ACTIVATE THE * 

* FOLLOWING FUNCTIONS: * 

* * 

* i) HARDWARE TEST * 

* ii) ZERO_CHECK ( CHECKS FOR AN ERASED 704P2 ) * 

* iii) PROGRAM ( STORES CODE 2716-> 704P2 ) * 

* iv) VERIFY ( COMPARES 2716 CONTENTS AGAINST 7042P2'S CONTENTS )* 




****************************: 

0000 

A 

PORTA 

EQU 

0 

PORTA 

0 00 4 

A 

DDRA 

EQU 

4 

PORTA 

0001 

A 

PORTB 

EQU 

1 

PORTB 

0005 

A 

DDRB 

EQU 

5 

PORTB 

0002 

A 

PORTC 

EQU 

2 

PORTC 

0006 

A 

DDRC 

EQU 

6 

PORTC 

0008 

A 

TDATA 

EQU 

8 



DATA 


REGISTER 


DATA DIRECTION REGISTER 


DATA 


REGISTER 


DATA DIRECTION REGISTER 


DATA 


REGISTER 


DATA DIRECTION REGISTER 


* THE FOLLOWING EQUATES ARE FOR PORTA 


00028 


0006 

A 

SWITCH 

EQU 

6 


00029 


0005 

A 

PSTRM 

EQU 

5 


00030 


0004 

A 

VSTRM 

EQU 

4 


00031 


0003 

A 

RDATA 

EQU 

3 


00032 


0002 

A 

EPROM 

EQU 

2 

ENABLES THE EPROM 

00033 


0001 

A 

BURN 

EQU 

1 

CONTROLS THE ANALOG CIRCUITRY, 1 

00034 




* 



VPP PULSE TO BE APPLIED TO THE MDS 

00035 




* 



704P2 MDS LINE. 

00036 




* 



PORTA.1 = ”0" "BURNER" ON 

00037 




* 



PORTA.1 = "1" "BURNER" OFF 

00038 


0000 

A 

RESET 

EQU 

0 

HANDLES THE 704P2 RESET LINE 

00039 








00040 








00041 




* THE FOLLOWING EQUATES ARE FOR PORTC 

00042 








00043 


0003 

A 

HALT 

EQU 

3 


00044 


0000 

A 

VERFD 

EQU 

0 


00045 








00046 


0000 

A 

MPT 

EQU 

0 

DEFAULT ERASED STATE OF EPROM 

00047 


0008 

A 

TIMER 

EQU 

8 

TIMER DATA REGISTER 

00048 


0009 

A 

TSCR 

EQU 

9 

TIMER STATUS CONTROL REGISTER 

00049 


000B 

A 

PCR 

EQU 

$B 


0005 0 


0784 

A 

MOR 

EQU 

$784 ' 


00051 


0007 

A 

TIR 

EQU 

7 

TIMER INTERRUPT BIT 

00052 


0001 

A 

KEY 

EQU 

1 


00053 








00054A 

0010 




ORG 

$10 


00055 








00056A 

0010 

0001 

A 

FLAG 

RMB 

1 


00057A 

0011 

0001 

A 

PULSES 

RMB 

1 


00058A 

0012 

0002 

A 

BYTES 

RMB 

2 


00059A 

0014 

0001 

A 

EXPECT 

RMB 

1 


00060A 

0015 

0001 

A 

TEMPI 

RMB 

1 


00061A 

0016 

0001 

A 

TEMP2 

RMB 

1 


00062A 

0017 

0001 

A 

TEMP3 

RMB 

1 


00063A 

0018 

0001 

A 

TEMP4 

RMB 

1 


00 0 6 4A 

0019 

0001 

A 

SELECT 

RMB 

1 


00065A 

001A 

0001 

A 

DATA1 

RMB 

1 


00066A 

001B 

0001 

A 

PHIGH 

RMB 

1 


00067A 

001C 

0001 

A 

PLOW 

RMB 

1 


00068A 

001D 

0001 

A 

SHIGH 

RMB 

1 


00069A 

001E 

0001 

A 

NOVERF 

RMB 

1 


00070A 

0 01F 

0001 

A 

SLOW 

RMB 

1 
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00071 

00072 




00073 

************************************************** 

00074 

* 


* 

00075 

* 

THE FOLLOWING CODE WILL PERMIT THE CODE STORED 

* 

00076 

* 

IN THE MCM2716 TO BE STORED INTO THE 68704P2 

* 

00077 

* 


* 

00078 

* 

BRIEF PIN-OUT FOLLOWS: 

* 

00079 

* 


* 

00080 

* 

PORT A: 

* 

00081 

* 

BIT #1: HANDLES THE RESET LINE 

* 

00082 

* 

BIT #2: HANDLES THE MDS LINE ON THE 

* 

00083 

* 

68704P2. 

* 

00084 

* 

BIT #3: ENABLES THE MCM2716 EPROM 

* 

00085 

* 

BIT #4: ENABLES THE DATA BUFFER 

* 

0008 6 

* 

BIT #5: ENABLE THE VERIFY DATA INPUT 

* 

00087 

* 

FROM THE 704P2. 

* 

00088 

* 

BIT #6: ENABLE THE PC DATA INPUT 

* 

00089 

* 

FROM THE 704P2 

* 

00090 

* 

BIT #7: PROG/VERIFY SWITCH 

* 

00091 

* 

BIT = "1"..PROGRAM 

* 

00092 

* 

BIT = ”0"..VERIFY 

* 

00093 

*. 

BIT #8: ZERO CHECK SWITCH 

* 

00094 

* 

BIT = "l" ZEROJ3HECK 

* 

00095 

* 


* 

00096 

* 

THE FOLLOWING CODE IS USED TO REPRESENT 

* 

00097 

* 

DIFFERENT STATUS OF THE PROGRAMMER; 

* 

00098 

* 


* 

00099 

* 

PA7 PA6 STATUS 

* 

00100 

* 

0 0 WAIT 

* 

00101 

* 

0 1 ZERO CHECK 

* 

00102 

* 

1 0 PROGRAM 

* 

00103 

* 

1 1 VERIFY 

* 

00104 

* 


* 

00105 

* 


* 

00106 

* 


* 

00107 

* 

PORT B: 

* 

00108 

* 

USED ONLY FOR DATA INPUT 

* 

00109 

* 


* 

00110 

* 

PORT C: 

* 

00111 

* 

BIT #1: VERIFY LED 

* 

00112 

* 

BIT #2: ERASE LED 

* 

00113 

* 

BIT #3: PROGRAM LED 

* 

00114 

* 

BIT #4: HANDLES THE HALT LINE ON THE 

* 

00115 

* 

68704P2 

* 

00116 

* 


* 

00117 

* 


* 

00118 

00119 

************************************************** 


00120A 0100 ORG $100 

00121A 0100 CD 03D2 A START JSR LED 

00122A 0103 CD 024D A JSR DISCON SET HARDWARE TO A STANDBY MODE 

00123A 0106 CD 0 3C9 A JSR INIT CONFIGURE PORTA r PLACE THE 704P2 RESET LINE LOW 

00124A 0109 CD 0366 A JSR WAITl HOLD RESET LINE LOW 

00125A 010C CD 0366 A JSR WAITl 

00126A 010F CD 0366 A JSR WAITl 

00127A 0112 10 00 A BSET RESET,PORTA SET THE 704P2 RESET LINE 

00128 * HIGH AGAIN 

00129A 0114 B6 00 A START1 LDA PORTA READ CURRENT PORTA DATA 

00130A 0116 A4 C0 A AND #%11000000 EXTRACT SWITCH DATA 

00131A 0118 27 0E 0128 BEQ HDWARE HARDWARE TEST? 

00132A 011A A1 40 A CMPA #%01000000 ERASE STATE? 

00133A 011C 26 03 0121 BNE START2 YES 

00134A 011E CC 01A1 A JMP ZEROCK 

00135A 0121 A1 80 A START2 CMPA #%10000000 PROGRAM STATE? 

00136A 0123 26 54 0179 BNE VERIFY IF NOT HARDWARE,ERASE OR PROGRAM... THEN VERIFY 

00137A 0125 CC 01C7 A JMP PROGRM 
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00138 
00139 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00148 
00149 
00150A 
00151 
00152 
0 015 3A 
0 0154A 
0 015 5 A 
0 015 6 A 
00157A 
0 015 8 A 
00159A 
0 016 0A 
0 0161A 
00162 A 
00163A 
0 016 4 A 
00165A 
0 016 6A 
00167A 
0 016 8 A 
00169 A 
00170 A 
00171A 
0 017 2A 
00173A 
00174A 
00175A 
00176A 
00177A 
00178A 
00179A 
00180A 
00181A 
00182A 
00183A 
00184A 
0 018 5 A 
0 018 6 A 
00187A 
00188 
00189 
00190 
00191 
00192 
00193 
00194. 
00195 
00196 
00197 
00198 
00199 
00200 
00201 
00202 


************************************************************* 
* * 

* HARDWARE TEST: * 

* THE FOLLOWING SECTION OF CODE WILL TEST THE OPERATION * 

* OF BOTH 7 4LS164'S, 74LS374'S AND THE TRI-STATE BUFFER * 

* 74LS241. IF THE HARWDARE PASSES THE THREE LED’S WILL * 

* BE TURNED ON. OTHERWISE, IF IT FAILS, THE LED’S WILL * 

* FLASH FOR SECONDS. * 






*********************** 

********************************** 

0128 

A6 

IF 

A 

HDWARE 

LDA 

#%00011111 VERIFY OFF, PC OUTPUT ON 





* 



TRI-STATE BUFFER ON, EPROM 





* 



OUPUTS DISABLED 

012A 

B7 

00 

A 


STA 

PORTA 


012C 

CD 

0366 

A 


JSR 

WAIT1 

WAIT UNTIL DATA IS STABLE 

012F 

CD 

0366 

A 


JSR 

WAIT 1 


0132 

CD 

0366 

A 


JSR 

WAIT1 


0135 

A6 

01 

A 


LDA 

#$01 


0137 

B7 

15 

A 


STA 

TEMPI 

INITIALIZE SOFTWARE P.C. 

0139 

CD 

01FC 

A 


JSR 

INCRM 

INCREMENT HARDWARE P.C. 

013C 

B6 

01 

A 

HTLOOP 

LDA 

PORTB 

READ IN HARWDARE P.C. 

013E 

B1 

15 

A 


CMPA 

TEMPI 

CHECK FOR HARDWARE & SOFTWARE P.C, 

0140 

27 

03 

0145 


BEQ 

TLOOPX 


0142 

CC 

0158 

A 


JMP 

DANGER 

HARDWARE FAILURE 

0145 

3C 

15 

A 

TLOOPX 

INC 

TEMPI 

INCREMENT SOFTWARE P.C. 

0147 

CD 

01FC 

A 


JSR 

INCRM 

INCREMENT HARDWARE P.C. 

014A 

B 6 

15 

A 


LDA 

TEMPI 

READ SOFTWARE P.C. 

014C 

Al 

3C 

A 


CMPA 

# $ 3C 

HAS TEST FINISHED? 

014E 

27 

02 

0152 


BEQ 

COMPLT 

IF SO, FLASH LED’S 

0150 

20 

EA 

013C 


BRA 

HTLOOP 

OTHERWISE, KEEP TESTING 

0152 

A6 

0F 

A 

COMPLT 

LDA 

# $ 0F 


0154 

B7 

02 

A 


STA 

PORTC 

TURN ON LED’S 

0156 

20 

1C 

0174 


BRA 

HTEND 

TEST FINISHED 

0158 

A6 

08 

A 

DANGER 

LDA 

#$08 

NUMBER OF LED FLASHES 

015A 

B7 

15 

A 


STA 

TEMPI 


015C 

B6 

15 

A 

TLOOP 

LDA 

TEMPI 

FLASH LED’S A TOTAL OF 8 TIMES. 

015E 

Al 

00 

A 


CMPA 

#$00 


0160 

27 

12 

0174 


BEQ 

HTEND 


0162 

A6 

0F 

A 


LDA 

# $ 0F 

TURN LED’S ON 

0164 

B7 

02 

A 


STA 

PORTC 


0166 

CD 

03AC 

A 


JSR 

XBLINK 


0169 

A6 

08 

A 


LDA 

#$08 

TURN LED’S OFF 

016B 

B7 

02 

A 


STA 

PORTC 


016D 

CD 

0 3 AC 

A 


JSR 

XBLINK 


0170 

3A 

15 

A 


DEC 

TEMPI 

DECREMENT FLASH_COUNT 

0172 

20 

E 8 

015C 


BRA 

TLOOP 


0174 

CD 

024D 

A 

HTEND 

JSR 

DISCON 

DISCONNECT HARDWARE 

0177 

20 

FE 

0177 

HTS 

BRA 

HTS 

END OF TEST, LOOP ENDLESSLY 


MATCH 


***************************************************** 
* * 

* VERIFY: * 

* THE VERIFY CODE FOLLOWS. * 

* IT RECEIVES THE BYTE OF DATA JUST PROGRAMMED * 

* INTO THE 68704P2 AND COMPARES IT WITH A BYTE * 

* THAT IS LOCATED IN THE MCM2716. * 

* * 

* SHIGH_HIGH ORDER BYTE OF P.C. * 

* SLOW.LOW ORDER BYTE OF P.C. * 

* * 
***************************************************** 


00203A 

0179 

CD 

0229 

A 

VERIFY 

JSR 

SKIP0 

SKIP $00-$12 



00204A 

017C 

3F 

ID 

A 


CLR 

SHIGH 

CLEAR HIGH ORDER BYTE 

OF P.C. 


0 0 20 5A 

017E 

A6 

17 

A 


LDA 

#$17 




00206A 

0180 

B7 

IF 

A 


STA 

SLOW 

SET LOW ORDER BYTE OF 

P.C. TO 

$17 

00207A 

0182 

CD 

0372 

A 


JSR 

SKIP 

INCREMENT THE 704P2 PROGRAM COUNTER, SO THAT IT 

00208 





* 


POINTS AT $17 



00209A 

0185 

A6 

01 

A 


LDA 

#$01 




00210A 

0187 

B7 

19 

A 


STA 

SELECT 

SELECT VERIFY MODE FOR 

: THE HANDLE ROUTINE 

00211A 

0189 

CD 

0252 

A 


JSR 

HNDLA 

VERIFY 704P2 CONTENTS 

AGAINST 


00212 





* 


i 

2716 EPROM CONTENTS. 



00213 





* 


[ 

DATA SPACE EPROM ] 



00214 





* 


MEMORY LOCATION: $20 — $5F 



00215A 

018C 

CD 

0237 

A 


JSR 

SKI PB 

SKIP BYTES $60 — $0BFF 



00216A 

018F 

CD 

025D 

A 


JSR 

HNDLB 

VERIFY 704P2 CONTENTS 

AGAINST 


00217 





* 


i 

2716 EPROM CONTENTS. 



00218 





* 


[ 

PROGRAM SPACE EPROM ] 



00219A 

0192 

CD 

0241 

A 


JSR 

SKI PC 

SKIP BYTES $FF8-$FFB 


00220A 

0195 

CD 

0269 

A 


JSR 

HNDLC 

VERIFY 704P2 CONTENTS 

AGAINST 

1 2716 EPROM CONTENTS 

00221 





* 


[ 

IRQ/ & RESET/ ADDRESSES 

J 


00222A 

0198 

CD 

024D 

A 


JSR 

DISCON 

DE-ACTIVATE EXTERNAL HARDWARE 


00223A 

019B 

A6 

09 

A 


LDA 

#%00001001 



00224A 

019D 

B7 

02 

A 


STA 

PORTC 

TURN ON VERIFIED LED 



00225A 

019F 

20 

FE 

019F 

VEREND 

BRA 

VEREND 
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00226 

00227 

00228 

00229 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00238 

00239 

00240A 01A1 CD 0229 
00241A 01A4 3F 19 
00242A 01A6 3F ID 
00243A 01A8 A6 IF 
00244A 01AA B7 IF 
00245A 01AC CD 027E 
00246A 01AF CD 0252 
00247A 01B2 CD 0237 
00248A 01B5 CD 025D 
00249A 01B8 CD 0241 
00250A 0IBB CD 0269 
00251 

00252A 01BE CD 024D 
00253A 01C1 A6 0A 
00254A 01C3 B7 02 
00255A 01C5 20 FE 
00256 
00257 
00258 
00259 
00260 
00261 
00262 
00263 
00264 
00265 
00266 

00267A 01C7 CD 0229 
00268A 01CA 3F ID 
00269A 01CC A6 16 
00270A 0ICE B7 IF 
00271A 01D0 A6 FF 
00272A 01D2 B7 IE 
00273A 01D4 A6 02 
00274A 01D6 B7 19 
00275A 01D8 CD 027E 
00276A 01DB A6 IF 
00277A 01DD B7 IF 
00278A 0IDF 3F IE 
00279A 01E1 CD 027E 
00280A 01E4 CD 0252 
00281A 01E7 CD 0237 
00282A 01EA CD 025D 
00283A 01ED CD 0241 
00284 

00285A 01F0 CD 0269 
00286A 01F3 CD 024D 
00287 

00288A 01F6 A6 0C 
00289A 01F8 B7 02 
00290A 01FA 20 FE 




* * 

* ZERO_CHECK: * 

* THE ZERO_CHECK CODE FOLLOWS. * 

* THE PURPOSE OF THIS CODE IS TO DETERMINE * 

* WHETHER OR NOT THE 704P2 EPROM IS ERASED. * 

* ERASED CONDITION FOR ANY GIVEN LOCATION; * 

* ”00" HEX. * 

* * 


************************************************** 


A ZEROCK JSR SKIP0 SKIP BYTES $00—$12 

A CLR SELECT 

A CLR SHIGH 

A LDA #$1F 

A STA SLOW 

A JSR HANDLE ZERO_CHECK OPTION BYTES 

A JSR HNDLA ZERO_CHECK DATA BYTES 

A JSR SKIPB SKIP BYTES $60—$0BFF 

A JSR HNDLB ZERO_CHECK PROG. BYTES 

A JSR SKI PC SKIP BYTES $0FF8 — $0FFB 

A JSR HNDLC CHECK ERASED IRQ/, 

* RESET/ VECTORS 

A JSR DISCON 

A LDA #%00001010 TURN ON ERASED LED 

A STA PORTC 

01C5 ZEROK BRA ZEROK 

*********************************************** 
•k 4c 

* PROGRAM MODE: * 

* THE PROGRAM CODE FOLLOWS * 

* THE PURPOSE OF THIS CODE IS TO "BURN" DATA * 

* INTO THE 68704P2. THE DATA IS EXTRACTED * 

* FROM A MCM2716. * 

* * 
*********************************************** 


A 

PROGRM 

JSR 

SKIP0 

SKIP BYTES $00—$12 

A 


CLR 

SHIGH 


A 


LDA 

#$16 


A 


STA 

SLOW 


A 


LDA 

# $ 0FF 


A 


STA 

NOVERF 

INHIBIT VERIFY AFTER BURN 

A 


LDA 

#$02 


A 


STA 

SELECT 

PROGRAM THE DATA SPACE 

A 


JSR 

HANDLE 

BURN LOCATIONS $12-$1E 

A 


LDA 

#$1F 


A 


STA 

SLOW 


A 


CLR 

NOVERF 

ACTIVATE VERIFY AFTER BURN 

A 


JSR 

HANDLE 

BURN & VERIFY LOCATION $1F 

A 


JSR 

HNDLA 

EPROM CONTENTS 

A 


JSR 

SKIPB 

SKIP BYTES $60—$0BFF 

A 


JSR 

HNDLB 

EPROM 

A 


JSR 

SKI PC 

SKIP BYTES $0FF8—$0FFB 


* 


VECTORS 

A 


JSR 

HNDLC 


A 


JSR 

DISCON 

DE-ACTIVATE EXTERNAL 


* 


HARDWARE 

A 


LDA 

#$0C 


A 


STA 

PORTC 

TURN ON PROGRAM LED 

01FA 

PROGED 

BRA 

PROGED 



14 



00291 







00292 







00293 





********************************************* 

00294 





* 

* 

00295 





* ALL SUB-ROUTINES USED IN THE MAIN PROGRAM * 

00296 





* WILL FOLLOW. * 

00297 





* 

* 

00298 





********************************************* 

00299 







00300 





********************************************* 

00301 





* 

* 

00302 





* INCRM SUB 

-ROUTINE: * 

00303 





* THIS SUB- 

ROUTINE INCREMENTS THE 704P2 * 

00304 





* PROGRAM COUNTER BY FOUR COUNTS. IT IS * 

00305 





* USED IN THE HARDWARE TEST MODE. * 

00306 





* 

* 

00307 





********************************************* 

00308 







00309A 

01FC 

17 

02 

A 

INCRM BCLR 

HALT,PORTC 

00310A 

01FE 

16 

02 

A 

BSET 

HALT,PORTC 

00311A 

0200 

9D 



NOP 


00312A 

0201 

9D 



NOP 


00 313A 

0202 

9D 



NOP 


00 314A 

0203 

9D 



NOP 


00315A 

0204 

9D 



NOP 


00316A 

0205 

9D 



NOP 


00317A 

0206 

9D 



NOP 


00318A 

0207 

17 

02 

A 

BCLR 

HALT,PORTC 

00319A 

0209 

16 

02 

A 

BSET 

HALT,PORTC 

00320A 

020B 

9D 



NOP 


00321A 

020C 

9D 



NOP 


00322A 

020D 

9D 



NOP 


00323A 

020E 

9D 



NOP 


0 0 3 2 4 A 

020F 

9D 



NOP 


00325A 

0210 

9D 



NOP 


00326A 

0211 

9D 



NOP 


00327A 

0212 

17 

02 

A 

BCLR 

HALT,PORTC 

0 0 3 28A 

0214 

16 

02 

A 

BSET 

HALT,PORTC 

00329A 

0216 

9D 



NOP 


00330A 

0217 

9D 



NOP 


00331A 

0218 

9D 



NOP 


00332A 

0219 

9D 



NOP 


00333A 

021A 

9D 



NOP 


00334A 

021B 

9D 



NOP 


00335A 

021C 

9D 



NOP 


00336A 

021D 

17 

02 

A 

BCLR 

HALT,PORTC 

00337A 

0 2 IF 

16 

02 

A 

BSET 

HALT,PORTC 

0 0 3 3 8 A 

0221 

9D 



NOP 


00339A 

0222 

9D 



NOP 


0 0 3 4 0A 

0223 

9D 



NOP 


00341A 

0224 

9D 



NOP 


00342A 

0225 

9D 



NOP 


00343A 

0226 

9D 



NOP 


0034 4A 

0227 

9D 



NOP 


00345A 

0228 

81 



RTS 



15 



00346 

00347 

00348 

00349 

00350 

00351 

00352 

00353 

00354 

00355 

00356 

00357 

00358 

00359 

00360 

00361 

00362 

00363 

00364 

00365 

00366 

00367 

00368 

00369 

00370 

00371 

00372 

00373 

00374 

00375 

00376 

00377 


********************************************* 
* * 

* SKIP SUB-ROUTINES * 

* * 

FOLLOWING * 


* THESE SUB-ROUTINES WORK IN THE 

* MANNER: 

* 

* THE SOFTWARE 704P2 P.C. VALUE 

* IN THE 705P3 IS SEPARATED INTO 

* * 

* PHIGH: HIGH ORDER BYTE OF THE 

* VALUE. 

* PLOW : LOW ORDER BYTE OF THE 

* VALUE. 

* 

* WHEN THE CONCATENATED VALUE OF 

* PLOW IS EQUAL TO SHIGH & SLOW, 

* NUMBER OF BYTES WILL HAVE BEEN 


STORED * 

TWO BYTES * 


"SOFT" PC 
’SOFT" PC 


PHIGH & * 

THE PROPER * 
SKIPPED. * 




*********************************************** 
* * 

* SKIP0 SUB-ROUTINE: * 

* THIS SUB-ROUTINE WILL INCREMENT THE 704P2 * 

* PROGRAM COUNTER SO THAT IT POINTS AT $12 * 

* * 
********************************************** 


00378A 

0229 

3F 

IB 

A 

SKIP0 CLR 

PHIGH 

00379A 

022B 

3F 

1C 

A 

CLR 

PLOW 

00380A 

0 2 2D 

3F 

ID 

A 

CLR 

SHIGH 

00381A 

022F 

A6 

12 

A 

LDA 

#$12 

00382A 

0231 

B7 

IF 

A 

STA 

SLOW 

00383A 

0233 

CD 

0372 

A 

JSR 

SKIP 

00384A 

0236 

81 



RTS 


00385 







00386 





********************************************** 

00387 





* 

* 

00388 





* SKIPB SUB 

-ROUTINE: * 

00389 





* THIS SUB- 

ROUTINE WILL INCREMENT THE 704P2 * 

00390 





* PROGRAM COUNTER SO THAT IT POINTS AT $C00 * 

00391 





* 

* 

00392 





********************************************** 

00393A 

0237 

A6 

0C 

A 

SKIPB LDA 

#$0C 

00394A 

0239 

B7 

ID 

A 

STA 

SHIGH 

0039 5A 

023B 

3F 

IF 

A 

CLR 

SLOW 

00396A 

023D 

CD 

0372 

A 

JSR 

SKIP 

00397A 

0240 

81 



RTS 


00398 







00399 





********************************************** 

00400 





* 

* 

00401 





* SKIPC SUB 

-ROUTINE: * 

00402 





* THIS SUB- 

ROUTINE WILL INCREMENT THE 704P2 * 

00403 





* PROGRAM COUNTER SO THAT IT POINTS AT $FFC * 

00404 





* 

* 

00405 





********************************************** 

0 0 4 0 6 A 

0241 

A6 

0F 

A 

SKI PC LDA 

# $ 0F 

00407A 

0243 

B7 

ID 

A 

STA 

SHIGH 

00408A 

0245 

A6 

FC 

A 

LDA 

# $ 0FC 

00409A 

0247 

B7 

IF 

A 

STA 

SLOW 

00410A 

0249 

CD 

0372 

A 

JSR 

SKIP 

00411A 

024C 

81 



RTS 



16 



00412 

00413 

00414 

00415 

00416 

00417 

00418 

00419 

00420 

00421 

00422 

00423 


********************************************** 
* * 

* DISCON SUB-ROUTINE: * 

* THIS SUB-ROUTINE DISABLES THE HARDWARE. * 

* IT DE-ACTIVATES THE SERIAL TO PARALLEL * 

* CONVERSION, DESELECTS THE EPROM, AND ALSO * 

* DISABLES THE TRI-STATE BUFFER. * 

* * 
********************************************** 


00424A 

024D 

A6 

07 

A 

DI 

SCON LDA 

#%00000111 TURN EPROM OFF, 


00425 





* 


BUFFER OFF,SERIAL 


00426 





* 


STREAMS OFF,BURNER OFF 


00427A 

024F 

B7 

00 

A 


STA 

PORTA 


0 04 28A 

0251 

81 




RTS 



00429 









00430 





* * 

******************************************** 

00431 





* 



* 

00432 





* 

HNDLA SUB 

-ROUTINE: 

* 

00433 





* 

THIS SUB¬ 

ROUTINE WILL PERMIT THE PROPER 

* 

00434 





* 

FUNCTION ( 

ZERO CHECK,VERIFY OR PROGRAM ) 

* 

00435 





* 

TO OPERATE ON ADDRESSES $18-$5F. 

* 

00436 





* 



* 

00437 





** 

******************************************** 

00438A 

0252 

4F 



HNDLA CLRA 



004 39A 

0253 

B7 

ID 

A 


STA 

SHIGH 


00440A 

0255 

A6 

5F 

A 


LDA 

#$5F 


00441A 

0257 

B7 

IF 

A 


STA 

SLOW 


0 0 4 4 2A 

0259 

CD 

027E 

A 


JSR 

HANDLE 


00443A 

025C 

81 




RTS 



00444 





* * 

******************************************** 

00445 





* 



* 

00446 





* 

HNDLB SUB 

-ROUTINE: 

* 

00447 





* 

THIS SUB¬ 

ROUTINE WILL PERMIT THE PROPER 

* 

00448 





* 

FUNCTION ( 

ZERO CHECK,VERIFY OR PROGRAM ) 

* 

00449 





* 

TO OPERATE ON ADDRESSES $C00-$FF7 

* 

00450 





* 



* 

00451 





* * 

******************************************** 

00452A 

025D 

A6 

0F 

A 

HNDLB LDA 

#$0F 


00453A 

025F 

B7 

ID 

A 


STA 

SHIGH 


00454A 

0261 

A6 

F7 

A 


LDA 

#$0F7 


00455A 

0263 

B7 

IF 

A 


STA 

SLOW 


00456A 

0265 

CD 

027E 

A 


JSR 

HANDLE 


00457A 

0268 

81 




RTS 



00458 









00459 





********************************************** 

00460 





* 



* 

00461 





* 

HNDLC SUB 

-ROUTINE: 

* 

00462 





* 

THIS SUB¬ 

ROUTINE WILL PERMIT THE PROPER 

* 

00463 





* 

FUNCTION ( 

ZERO CHECK,VERIFY OR PROGRAM ) 

* 

00464 





* 

TO OPERATE ON ADDRESSES $FFC-$FFF. 

* 

00465 





* 



* 

00466 





********************************************** 

0 0 4 6 7 A 

0269 

A6 

0F 

A 

HNDLC LDA 

#$0F 


00468A 

026B 

B7 

ID 

A 


STA 

SHIGH 


00469A 

026D 

A6 

FF 

A 


LDA 

# $0FF 


00470A 

0 26F 

B 7 

IF 

A 


STA 

SLOW 


00471A 

0271 

CD 

027E 

A 


JSR 

HANDLE 


00472A 

0274 

81 




RTS 



00473 









004 74A 

0275 

A6 

02 

A 

WAIT LDA 

#2 


00475A 

0277 

B 7 

11 

A 


STA 

PULSES 


00476A 

0279 

3A 

11 

A 

WAITX DEC 

PULSES 


00477A 

0 27B 

26 

FC 

0279 


BNE 

WAITX 


00478A 

027D 

81 




RTS 




17 



00479 







00480 







00481 





******************** * * ***************************** 

00482 





* 

* 

0 0 4 8 3 





* HANDLE SUB 

-ROUTINE: * 

00484 





* DEPENDING 

ON THE VALUE OF THE VARIABLE SELECT, * 

00485 





* EITHER THE 

ZERO CHECK,VERIFY OR PROGRAM MODE * 

00486 





* OF OPERATION WILL BE SELECTED. * 

00487 





* 

* 

00488 





*************************************************** 

0 0 4 8 9 A 

0 27 E 

B6 

19 

A 

HANDLE LDA 

SELECT 

00490A 

0280 

A1 

02 

A 

CMPA 

#$02 

00491A 

0282 

27 

12 

0296 

BEQ 

HANDL1 

00492A 

0284 

A1 

01 

A 

CMPA 

#$01 

00493A 

0286 

27 

1C 

02A4 

BEQ 

HANDL2 

00494A 

0288 

A6 

27 

A 

LDA 

#%00100111 TURN OFF EPROM 

00495A 

028A 

B7 

00 

A 

STA 

PORTA 

00496A 

028C 

A6 

2F 

A 

LDA 

#%00101111 TURN ON BUFFER 

00497A 

0 2 8 E 

B7 

00 

A 

STA 

PORTA 

00498A 

0290 

CD 

0275 

A 

JSR 

WAIT 

00499A 

0293 

CC 

0 2CA 

A 

JMP 

HANDL4 

00500 







00501A 

0296 

A6 

13 

A 

HANDL1 LDA 

#%00010011 PC STREAM ON, 

00502 





* 

VERIFY STREAM OFF, 

00503 





* 

BURNER OFF, EPROM ON, 

00504 





* 

BUFFER OFF 

00505A 

0298 

B7 

00 

A 

STA 

PORTA 

00506A 

029A 

CD 

0275 

A 

JSR 

WAIT 

00507A 

029D 

B6 

01 

A 

LDA 

PORTB READ EPROM CONTENTS 

00508A 

029F 

B7 

1A 

A 

STA 

DATA1 BACKUP THE VALUE 

00509A 

02A1 

CC 

02D3 

A 

JMP 

HANDL5 

00510 







00511A 

02A4 

A6 

27 

A 

HANDL2 LDA 

#%00100111 TURN OFF EPROM 

00512A 

0 2A6 

B7 

00 

A 

STA 

PORTA 

00513A 

02A8 

A6 

2F 

A 

LDA 

#%00101111 TURN ON BUFFER 

0 0 514A 

02AA 

B7 

00 

A 

STA 

PORTA 

00515A 

0 2 AC 

CD 

0275 

A 

JSR 

WAIT WAIT UNTIL DATA IS STABLE 

00516 







00517A 

02AF 

B6 

01 

A 

HANDL3 LDA 

PORTB 

00518A 

02B1 

B7 

1A 

A 

STA 

DATA1 BACKUP VERIFY DATA 

00519A 

02B3 

A6 

13 

A 

LDA 

#%00010011 PC STREAM ON, VERIFY OFF, 

00520 





* 

EPROM ON, DATA OFF 

00521A 

02B5 

B7 

00 

A 

STA 

PORTA 

00522A 

0 2B7 

CD 

0275 

A 

JSR 

WAIT 

00523A 

02BA 

B6 

1A 

A 

LDA 

DATAl 

00524A 

02BC 

Bl 

01 

A 

CMPA 

PORTB COMPARE VERIFY DATA WITH EPROM 

00525 





* 

CONTENTS 

00526A 

02BE 

27 

03- 

02C3 

BEQ 

HANDLX IF THEY MATCH, CONTINUE THE ANALYSIS. 

00527A 

0 2C0 

CC 

032A 

A 

JMP 

VFAIL OTHERWISE, GO TO THE VERIFY FAIL SUB-ROUTINE 

00528A 

02C3 

A6 

2F 

A 

HANDLX LDA 

#%00101111 

00529A 

02C5 

B7 

00 

A 

STA 

PORTA ENABLE SERIAL OUTPUT OF 704P2 EPROM CONTENTS 

00530A 

02C7 

CC 

02ED 

A 

JMP 

HANDL6 

00531 







00532A 

0 2CA 

B6 

01 

A 

HANDL4 LDA 

PORTB 

00533A 

02CC 

A1 

00 

A 

CMPA 

#$00 

00534A 

0 2CE 

26 

4 A 

031A 

BNE 

EFAIL 

00535A 

02D0 

CC 

02ED 

A 

JMP 

HANDL6 

00536 







00537A 

02D3 

CD 

034A 

A 

HANDL5 JSR 

BURNIT 

00538A 

02D6 

B6 

IE 

A 

LDA 

NOVERF 

00539A 

02D8 

Al 

FF 

A 

CMPA 

#$0FF SEE IF THE VERIFY AFTER 

00540 





* 

BURN HAS BEEN ACTIVATED. 

00541A 

02DA 

27 

11 

0 2ED 

BEQ 

HANDL6 

00542A 

02DC 

A6 

27 

A 

LDA 

#%00100111 TURN OFF EPROM 

00543A 

02DE 

B7 

00 

A 

STA 

PORTA 

00544A 

02E0 

A6 

2F 

A 

LDA 

#%00101111 TURN ON DATA BUFFER 

00545A 

02E2 

B7 

00 

A 

STA 

PORTA 

00546A 

02E4 

CD 

0275 

A 

JSR 

WAIT 

00547A 

02E7 

B 6 

01 

A 

LDA 

PORTB 

00548A 

02E9 

Bl 

1A 

A 

CMPA 

DATAl 

00549A 

02EB 

26 

4D 

033A 

BNE 

PFAIL 

00550 







00551A 

02ED 

B6 

IB 

A 

HANDL6 LDA 

PHIGH 

00552A 

02EF 

Bl 

ID 

A 

CMPA 

SHIGH 

00553A 

02F1 

25 

06 

02F9 

BLO 

HANDL7 

00554A 

02F3 

B6 

1C 

A 

LDA 

PLOW 

00555A 

02F5 

Bl 

IF 

A 

CMPA 

SLOW 

00556A 

02F7 

27 

14 

030D 

BEQ 

HANDL9 


18 



00557 

00558A 

0 2F9 

CD 

03A1 

A 

HANDL7 JSR 

TOGGLE 

00559A 

0 2FC 

98 



CLC' 


00560A 

02FD 

B6 

1C 

A 

LDA 

PLOW 

00561A 

02FF 

AB 

01 

A 

ADD 

#$01 

00562A 

0301 

25 

04 

0307 

BCS 

HANDL8 

00563A 

0303 

B7 

1C 

A 

STA 

PLOW 

00564A 

0305 

20 

07 

030E 

BRA 

HNDL10 

00565A 

0307 

3C 

IB 

A 

HANDL8 INC 

PHIGH 

00566A 

0309 

3F 

1C 

A 

CLR 

PLOW 

00567A 

030B 

20 

01 

0 30E 

BRA 

HNDL10 

00568A 

030D 

81 



HANDL9 RTS 


00569 

00570A 

030E 

B6 

19 

A 

HNDL10 LDA 

SELECT 

00571A 

0310 

A1 

02 

A 

CMPA 

#$02 

00572A 

0312 

27 

82 

0296 

BEQ 

HANDL1 IF SELECT = $02 

00573 





* 

THEN GO BACK AND BURN 

00574 





* 

ANOTHER BYTE OF DATA 

00575A 

0314 

A1 

01 

A 

CMPA 

#$01 

00576A 

0316 

27 

97 

02AF 

BEQ 

HANDL3 IF SELECT = $03, THEN 

00577 





•k 

GO BACK AND VERIFY THE 

00578 





•k 

EPROM CONTENTS 

00579A 

0318 

20 

B0 

02CA 

BRA 

HANDL4 SELECT = $00, THEN GO 

00580 





* 

BACK AND CHECK ON ANOTHER 

00581 

00582 

00583 

00584 

00585 





* 

ERASED BYTE 

00586 





*********************************************** 

00587 





* 

* 

00588 





* EFAIL 

SUB-ROUTINE * 

00589 





* 

* 

00590 





*********************************************** 

00591 

00592A 

031A 

A6 

0A 

A 

EFAIL LDA 

#%00001010 BLINK THE ERASED LED 

00593 





* 

TO INDICATE ERASE FAILURE 

00594A 

031C 

B7 

02 

A 

STA 

PORTC 

00595A 

0 3 IE 

CD 

03AC 

A 

JSR 

XBLINK 

00596A 

0321 

A6 

08 

A 

LDA 

#%00001000 

00597A 

0323 

B7 

02 

A 

STA 

PORTC 

00598A 

0325 

CD 

0 3 AC 

A 

JSR 

XBLINK 

00599A 
006 00 

0328 

20 

F0 

031A 

BRA 

EFAIL 

00601 





*********************************************** 

00602 





* 

* 

00603 





* VFAIL 

SUB-ROUTINE * 

00604 





* THIS 

SUB-ROUTINE WILL BE ACTIVATED * 

00605 





* TO INDICATE A VERIFY FAILURE. THE * 

00606 





* ADDRESS WILL BE AVAILABLE ON THE OUT- * 

00607 





* PUT PINS OF THE LS374*S * 

006 08 





* 

* 

00609 





*********************************************** 

00610A 

032A 

A6 

09 

A 

VFAIL LDA 

#%00001001 VERIFIED LED ON 

00611A 

032C 

B7 

02 

A 

STA 

PORTC 

00612A 

032E 

CD 

03AC 

A 

JSR 

XBLINK SMALL DELAY LOOP 

00613A 

0331 

A6 

08 

A 

LDA 

#%00001000 VERIFIED LED OFF 

00614A 

0333 

B7 

02 

A 

STA 

PORTC 

00615A 

0335 

CD 

03AC 

A 

JSR 

XBLINK SMALL DELAY LOOP 

00616A 

00617 

0338 

20 

F0 

032A 

BRA 

VFAIL 

00618 





*********************************************** 

00619 





* 

* 

00620 





* PFAIL 

SUB-ROUTINE * 

00621 





* THIS 

SUB-ROUTINE IS CALLED WHENEVER A * 

00622 





* PROBLEM OCCURS DURING THE PROGRAMMING * 

00623 





* MODE. 

* 

00624 





* 

* 

00625 





*********************************************** 

00626A 

033A 

A6 

0C 

A 

PFAIL LDA 

#%00001100 PROGRAMMED LED ON 

00627A 

033C 

B7 

02 

A 

STA 

PORTC 

00628A 

033E 

CD 

03 AC 

A 

JSR 

XBLINK SMALL DELAY LOOP 

00629A 

0341 

A6 

08 

A 

LDA 

#%00001000 PROGRAMMED LED OFF 

00630A 

0343 

B7 

02 

A 

STA 

PORTC 

00631A 

0345 

CD 

03 AC 

A 

JSR 

XBLINK SMALL DELAY LOOP 

00632A 

0348 

20 

F0 

033A 

BRA 

PFAIL 



00633 

00634 








00635 





*********************************************** 

00636 





* 


* 

00637 





* BURNIT SUB 

-ROUTINE * 

00638 





* THIS SUB-ROUTINE IS CALLED WHENEVER A BYTE * 

00639 





* OF 

DATA IS 

TO BE PROGRAMMED INTO THE 704P2 * 

00640 





* 


* 

•00641 





*********************************************** 

00642 



034A 

A 

BURNIT 

EQU 

* 

00643A 

034A 

A6 

08 

A 


LDA 

#08 

00644A 

034C 

B7 

11 

A 


STA 

PULSES NO MORE THAN A 50 MSEC. PULSE 

00645A 

034E 

13 

00 

A 

BURNl 

BCLR 

BURN,PORTA TURN ON "BURNER" 

0064 6A 

0350 

CD 

0393 

A 


JSR 

MSEC1 

00647A 

0353 

CD 

0393 

A 


JSR 

MSEC1 

00648A 

0356 

CD 

0393 

A 


JSR 

MSEC1 

00649A 

0359 

CD 

0393 

A 


JSR 

MSEC1 

00650A 

035C 

CD 

0393 

A 


JSR 

MSEC1 

006 51A 

035F 

12 

00 

A 


BSET 

BURN,PORTA TURN OFF "BURNER" 

00652A 

0361 

3A 

11 

A 


DEC 

PULSES 

00653A 

0363 

26 

E9 

034E 


BNE 

BURNl 

00654A 

0365 

81 




RTS 

PROGRAMMING OF BYTE 

00655 

00656 

00657 





* 


IS COMPLETE 

00658 



0366 

A 

WAITl 

EQU 

* 

00659A 

0366 

A6 

IE 

A 


LDA 

#30 

00660A 

0368 

B7 

11 

A 


STA 

PULSES 

00661A 

036A 

CD 

0393 

A 

WAIT2 

JSR 

MSEC1 

00662A 

036D 

3 A 

11 

A 


DEC 

PULSES 

00663A 

036F 

26 

F 9 

036A 


BNE 

WAIT2 

00664A 

00665 

00666 

00667 

00668 

00669 

0371 

81 




RTS 


00670A 

0372 

B6 

IB 

A 

SKIP 

LDA 

PHIGH LOAD HIGH ORDER "SOFT" PC 

00671 





* 


VALUE &.DETERMINE IF IT 

00672 





* 


HAS REACHED SHIGH YET. 

00673A 

0374 

B1 

ID 

A 


CMPA 

SHIGH 

00674A 

0376 

25 

06 

037E 


BLO 

SKI PI IF THEY AREN'T EQUAL, 

00675 





* 


THEN KEEP ON INCREMENTING 

00676 





* 


THE "SOFT" PLOW. IF THEY 

00677 





* 


ARE EQUAL, THEN CHECK ON 

00678 





* 


THE LOW ORDER BYTES OF PC 

00679A 

0378 

B6 

IF 

A 


LDA 

SLOW 

00680A 

037A 

B1 

1C 

A 


CMPA 

PLOW 

00681A 

037C 

27 

14 

0392 


BEQ 

SKIP3 PROPER # OF BYTES HAVE 

00682 





* 


BEEN SKIPPED. 

00683A 

037E 

CD 

03A1 

A 

SKIP1 

JSR 

TOGGLE INCREMENT THE 704P2 P.C. 

00684A 

0381 

98 




CLC 


00 6 8 5A 

0382 

B6 

1C 

A 


LDA 

PLOW INCREMENT THE "SOFT" PC VALUE 

00686A 

0384 

AB 

01 

A 


ADD 

#$01 

00687A 

0386 

25 

04 

038C 


BCS 

SKIP2 IF PLOW OVER-FLOWED, THEN 

00688 





* 


INCREMENT PHIGH 

00689A 

0388 

B7 

1C 

A 


STA 

PLOW 

00690A 

0 38A 

20 

E6 

0372 


BRA 

SKIP 

00691A 

038C 

3C 

IB 

A 

SKIP2 

INC 

PHIGH 

00692A 

038E 

3F 

1C 

A 


CLR 

PLOW 

00693A 

0390 

20 

E0 

0372 


BRA 

SKIP 

00694A 

00695 

0392 

81 



SKIP3 

RTS 


00696 





*********************************************** 

00697 





* 


* 

00698 





* MSEC1 SUB- 

ROUTINE * 

00699 





* THIS SUB-ROUTINE IS CALLED WHENEVER AN * 

00700 





* APPROXIMATE 1 MSEC. DELAY IS REQUIRED. * 

00701 





* 


* 

00702 





*********************************************** 

00703 



0393 

A 

MSEC1 

EQU 

* 

00704A 

0393 

A6 

4 A 

A 


LDA 

#%01001010 DIVIDE BY 4 

00705A 

0395 

B7 

09 

A 


STA 

TSCR 

00706A 

0397 

A6 

B4 

A 


LDA 

#180 

00707A 

0399 

B7 

08 

A 


STA 

TDATA 

00708A 

039B 

0F 

09 FD 

039B 


BRCLR 

TIR,TSCR,* 

00709A 

039E 

IF 

09 

A 


BCLR 

TIR,TSCR 

00710A 

03A0 

81 




RTS 



20 



00711 








00712 





********************************************** 

00713 





* 



00714 





* TOGGLE SUB-ROUTINE 

00715 





* THIS SUB- 

-ROUTINE IS USED TO INCREMENT THE 

00716 





* 704P2 1 S ] 

PROGRAM COUNTER. 

00717 





* 



00718 





********************************************** 

00719 



03A1 

A 

TOGGLE 

EQU 

* 

00720A 

0 3A1 

17 

02 

A 


BCLR 

HALT,PORTC 

00721A 

0 3A3 

16 

02 

A 


BSET 

HALT,PORTC 

00722A 

03A5 

9D 




NOP 


00723A 

03A6 

9D 




NOP 


00724A 

03A7 

9D 




NOP 


00725A 

03A8 

9D 




NOP 


00726A 

0 3A9 

9D 




NOP 


00727A 

0 3AA 

9D 




NOP 


00728A 

03AB 

81 




RTS 


00729 








00730 








00731 



03AC 

A 

XBLINK 

EQU 

* 

00732A 

03AC 

A6 

FF 

A 


LDA 

# $FF 

00733A 

03AE 

B7 

17 

A 


STA 

TEMP3 

0 07 3 4A 

0 3B0 

A6 

02 

A 


LDA 

#$02 

00735A 

03B2 

B7 

L8 

A 


STA 

TEMP4 

00736A 

03B4 

CD 

0393 

A 

LOOP2 

JSR 

MSEC1 

00737A 

03B7 

B6 

17 

A 


LDA 

TEMP3 

00738A 

03B9 

4 A 




DECA 


00739A 

03BA 

B7 

17 

A 


STA 

TEMP3 

00740A 

03BC 

26 

F6 

03B4 


BNE 

LOOP2 

007 41A 

03BE 

CD 

0393 

A 


JSR 

MSEC1 

00742A 

03C1 

B6 

18 

A 


LDA 

TEMP4 

00743A 

0 3C3 

4 A 




DECA 


00744A 

03C4 

B7 

18 

A 


STA 

TEMP4 

00745A 

0 3C6 

26 

EC 

03B4 


BNE 

LOOP2 

00746A 

0 3C8 

81 




RTS 


00747 



03C9 

A 

INIT 

EQU 

* 

00748A 

03C9 

A6 

3F 

A 


LDA 

#%00111111 

00749A 

03CB 

B7 

04 

A 


STA 

DDRA 

00750A 

0 3CD 

A6 

06 

A 


LDA 

#%00000110 

00751A 

03CF 

B7 

00 

A 


STA 

PORTA 

00752A 

03D1 

81 




RTS 


00753 








00754 








00755A 

03D2 

A6 

0F 

A 

LED 

LDA 

#$0F SET LOW NIBBLE OF PORTC 

00756 





* 


TO OUTPUT MODE 

00757A 

03D4 

B7 

06 

A 


STA 

DDRC 

0 0758A 

03D6 

A6 

08 

A 


LDA 

#$08 TURN LED'S OFF 

00759A 

03D8 

B7 

02 

A 


STA 

PORTC 

0 076 0A 

03DA 

81 




RTS 


00761 








00762 








00763A 

0784 





ORG 

MOR 

007 64A 

0784 


03 

A 


FCB 

%00000011 DIV BY 8, XTAL MODE 

00765 








00766A 

07F8 





ORG 

$7F8 

00767A 

07F8 


0100 

A 


FDB 

START 

0 07 6 8A 

07FA 


0100 

A 


FDB 

START 

00769A 

07FC 


0100 

A 


FDB 

START 

00770A 

07FE 


0100 

A 


FDB 

START 

00771 






END 


TOTAL ERRORS 00000— 

00000 
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